home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Leonardo the Inventor
/
Leonardo The Inventor (93026)(Broderbund)(Riverdeep)(2004).iso
/
LEOWINMV
/
FORTGAME.DIR
/
00277_Script_setUpObjects in rooms
< prev
next >
Wrap
Text File
|
1996-03-20
|
2KB
|
76 lines
------------------------------------------------ SET UP OBJECTS IN ROOMS
on setUpObjects whichPos
global Snorkel1Taken, Snorkel1Sprite
global objectChannel1, objectChannel2
global BackwardNoteTaken, BackwardNoteSprite
global MusicClue1Taken, MusicClueSprite
global MusicClue2Taken
global Key1Taken, KeySprite
global Key2Taken
global Key3Taken
global Key4Taken
puppetSprite objectChannel1, false
puppetSprite objectChannel2, false
if whichPos = "R 11" then -- backward note
if BackwardNoteTaken then
hideSprite BackwardNoteSprite, 0
else
setGrabObjectCursor BackwardNoteSprite
end if
else if whichPos = "R 15" then -- music clue 1
if MusicClue1Taken then
hideSprite MusicClueSprite, 0
else
setGrabObjectCursor MusicClueSprite
end if
else if whichPos = "R 4" then -- key 1
if Key1Taken then
hideSprite KeySprite, 0
else
setGrabObjectCursor KeySprite
end if
else if whichPos = "R 19" then -- key 3
if Key3Taken then
hideSprite KeySprite, 0
else
-- setGrabObjectCursor KeySprite
end if
else if whichPos = "R 16" then -- key 4
if Key4Taken then
hideSprite KeySprite, 0
else
setGrabObjectCursor KeySprite
end if
else if whichPos = "R 23" then -- music clue 2
if MusicClue2Taken then
hideSprite MusicClueSprite, 0
else
setGrabObjectCursor MusicClueSprite
end if
else if whichPos = "R 10" then -- key 2
if Key2Taken then
hideSprite KeySprite, 0
else
setGrabObjectCursor KeySprite
end if
else if whichPos = "R 5" then -- snorkel 1
if Snorkel1Taken then
hideSprite Snorkel1Sprite, 0
else
setGrabObjectCursor Snorkel1Sprite
end if
end if
end setUpObjects